home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Textdisplayers / Vinci / Rexx / Browser.vinci
Encoding:
Text File  |  1996-09-27  |  1.4 KB  |  54 lines
  1. /*
  2.  * Dir browser. ARexx script for Vinci.
  3.  *
  4.  * Copyright © 1995-1996 Martin Wulffeld.
  5.  *
  6.  * Thanks to Preben Nielsen for help with the random function.
  7.  *
  8.  * This script first requests a path from the user then creates a list of all
  9.  * files in the directory including sub-directories and shows it as an
  10.  * AmigaGuide document in Vinci.
  11.  */
  12.  
  13. options results
  14. address 'VINCI'
  15.  
  16. CALL RANDOM(1,1000,TIME('S')) /* Randomize initially using timer */
  17.  
  18. tempfilename = 'T:Vinci.'result
  19.  
  20. GetPath
  21.  
  22. if rc = 0 then
  23.   do
  24.     address command 'List FILES ALL 'result' TO T:Dir.temp LFORMAT "%F%N"'
  25.  
  26.     if rc = 0 then
  27.       address command 'Sort FROM T:Dir.temp TO T:Dir.sorted'
  28.   
  29.       if rc = 0 then
  30.         if open( 'browsefile', tempfilename, 'w' ) then
  31.           do
  32.             call writeln( 'browsefile', '@DATABASE "'result'"' )
  33.             call writeln( 'browsefile', '@NODE Main "Vinci Browser"' )
  34.             call writeln( 'browsefile', '' )
  35.         
  36.             if open( 'dirfile', 'T:Dir.sorted', 'r' ) then
  37.               do
  38.                 do forever
  39.                   str = readln( 'dirfile' ) 
  40.                   if str = '' then break
  41.  
  42.                   call writeln( 'browsefile', '@{ "'str'" LINK "'str'/MAIN"}' )
  43.                 end
  44.  
  45.                 call close( 'dirfile' )
  46.               end
  47.         
  48.             call writeln( 'browsefile', '@ENDNODE' )
  49.  
  50.             call close( 'browsefile' )
  51.           end
  52.         Loadfile F tempfilename M 2
  53.     end
  54.